Enriches the tonalities by adding new intervals to the tonality base note. If you have a chord tonality you can this way enhance it to include 6th, 9ths, 11th etc.
Enriching adds new notes at the end of the tonality list, and adds only those notes that are new (not already in use in the tonality). If you have a scale '(a b c d e f g h i j k l) then enriched tonality will sound exactly as before but when symbols exceed the original tonality new notes will be heard, which are the enriched ones.
(activate-tonality (major c 4))
--> ((c 4 d 4 e 4 f 4 g 4 a 4 b 4))
(enrich-tonality nil (activate-tonality (major c 4)))
--> ((c 4 d 4 e 4 f 4 g 4 a 4 b 4))
(enrich-tonality '(1 2 3) (activate-tonality (major c 4)))
--> ((c 4 d 4 e 4 f 4 g 4 a 4 b 4 c# 4 d# 4))
(enrich-tonality '(1 2 3) (activate-tonality (major c 4) (harmonic-minor c 4)))
--> ((c 4 d 4 e 4 f 4 g 4 a 4 b 4 c# 4 d# 4) (c 4 d 4 d# 4 f 4 g 4 g# 4 b 4 c# 4))
(enrich-tonality '((1 2 3) (4 5 6))
(activate-tonality (major c 4) (harmonic-minor c 4)))
--> ((c 4 d 4 e 4 f 4 g 4 a 4 b 4 c# 4 d# 4) (c 4 d 4 d# 4 f 4 g 4 g# 4 b 4 e 4 f# 4))
Note that enriching is a pattern, which is repeated to all tonalities.
(enrich-tonality '((1 2 3) (4 5 6))
(activate-tonality (major c 4)
(harmonic-minor c 4)
(messiaen2 c 4)))
--> ((c 4 d 4 e 4 f 4 g 4 a 4 b 4 c# 4 d# 4) (c 4 d 4 d# 4 f 4 g 4 g# 4 b 4 e 4 f# 4) (c 4 c# 4 d# 4 e 4 f# 4 g 4 a 4 a# 4 d 4))
Use nil not to enrich.
(enrich-tonality '((1 2 3) (4 5 6) nil)
(activate-tonality (major c 4)
(harmonic-minor c 4)
(messiaen2 c 4)))
Use sort-tonality to restore the tonality into an increasing order.
